let max a b = if a > b then a else b